library(data.table)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:data.table':
## 
##     between, first, last
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
library(tidyr)
setwd("~/buckets/b1/")   #Establezco el Working Directory
kdataset       <- "./datasets/paquete_premium_ext_722.csv.gz"
dataset =  fread(kdataset, stringsAsFactors= TRUE)
df = dataset[ foto_mes==202009, ]

df_numeric = df %>% dplyr::select_if(is.numeric)
df_numeric = as_tibble(df_numeric)
var_target = df %>% dplyr::select(clase_ternaria) #%>% 
  # mutate(clase_ternaria = case_when(
  #   clase_ternaria == "CONTINUA"  ~ 1,
  #   clase_ternaria == 'BAJA+1' ~ -1,
  #   clase_ternaria == 'BAJA+2' ~ -2))
activo_boxplot = T
df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(1:20) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 157023 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(21:40) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 356301 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(41:60) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 94899 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(61:80) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 54220 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(81:100) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 80553 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(101:120) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 89792 rows containing non-finite values (stat_boxplot).

summary(df)
##  numero_de_cliente     foto_mes         internet      mactivos_margen    
##  Min.   : 4572300   Min.   :202009   Min.   :0.0000   Min.   :-139015.2  
##  1st Qu.:15718080   1st Qu.:202009   1st Qu.:1.0000   1st Qu.:  -1031.3  
##  Median :24464890   Median :202009   Median :1.0000   Median :   -236.2  
##  Mean   :26002870   Mean   :202009   Mean   :0.9398   Mean   :   -233.3  
##  3rd Qu.:35483129   3rd Qu.:202009   3rd Qu.:1.0000   3rd Qu.:     29.1  
##  Max.   :60887801   Max.   :202009   Max.   :1.0000   Max.   : 587094.5  
##                                                                          
##  mpasivos_margen      cproductos     mcuenta_corriente   ccaja_ahorro  
##  Min.   :-61985.1   Min.   : 3.000   Min.   :-4378631   Min.   : 2.00  
##  1st Qu.:   131.6   1st Qu.: 7.000   1st Qu.:    -469   1st Qu.: 2.00  
##  Median :   437.3   Median : 7.000   Median :       0   Median : 2.00  
##  Mean   :  1142.9   Mean   : 7.604   Mean   :    3499   Mean   : 2.13  
##  3rd Qu.:  1125.1   3rd Qu.: 8.000   3rd Qu.:       0   3rd Qu.: 2.00  
##  Max.   :364252.1   Max.   :17.000   Max.   :12191465   Max.   :10.00  
##                                                                        
##   mcaja_ahorro      mdescubierto_preacordado mcuentas_saldo     
##  Min.   :    -743   Min.   :0.00             Min.   : -4378628  
##  1st Qu.:    4624   1st Qu.:1.17             1st Qu.:     1657  
##  Median :   18350   Median :1.17             Median :    35189  
##  Mean   :   67943   Mean   :1.13             Mean   :   182235  
##  3rd Qu.:   55931   3rd Qu.:1.17             3rd Qu.:   127205  
##  Max.   :21689559   Max.   :1.17             Max.   :106063380  
##                                                                 
##  ctarjeta_visa_trx mtarjeta_visa_consumo mprestamos_personales
##  Min.   :  0.00    Min.   :      0       Min.   :      0      
##  1st Qu.:  3.00    1st Qu.:   3873       1st Qu.:      0      
##  Median :  8.00    Median :  15192       Median :      0      
##  Mean   : 12.21    Mean   :  27576       Mean   :  23870      
##  3rd Qu.: 17.00    3rd Qu.:  34918       3rd Qu.:      0      
##  Max.   :424.00    Max.   :3643379       Max.   :4276590      
##                                                               
##   cpayroll_trx        mpayroll        mcuenta_debitos_automaticos
##  Min.   : 0.0000   Min.   :       0   Min.   :       0           
##  1st Qu.: 0.0000   1st Qu.:       0   1st Qu.:       0           
##  Median : 1.0000   Median :    4095   Median :       0           
##  Mean   : 0.8379   Mean   :   52256   Mean   :    6251           
##  3rd Qu.: 1.0000   3rd Qu.:   76455   3rd Qu.:    3008           
##  Max.   :62.0000   Max.   :20428200   Max.   :10969155           
##                                                                  
##  mpagomiscuentas    mcomisiones_mantenimiento mtransferencias_recibidas
##  Min.   :       0   Min.   :-15716.6          Min.   :        0        
##  1st Qu.:       0   1st Qu.:     0.0          1st Qu.:     1170        
##  Median :     117   Median :     0.0          Median :    33845        
##  Mean   :   14973   Mean   :   401.7          Mean   :   120117        
##  3rd Qu.:   10532   3rd Qu.:   680.7          3rd Qu.:    91948        
##  Max.   :77739942   Max.   :  7082.4          Max.   :160414762        
##                                                                        
##  chomebanking_trx   ctrx_quarter     tmobile_app     Master_fechaalta
##  Min.   :   0.00   Min.   :   0.0   Min.   :0.0000   Min.   :   1    
##  1st Qu.:   5.00   1st Qu.:  54.0   1st Qu.:0.0000   1st Qu.: 871    
##  Median :  30.00   Median :  95.0   Median :0.5000   Median :2120    
##  Mean   :  55.62   Mean   : 107.9   Mean   :0.3527   Mean   :2454    
##  3rd Qu.:  78.00   3rd Qu.: 142.0   3rd Qu.:0.5000   3rd Qu.:3689    
##  Max.   :6591.00   Max.   :3405.0   Max.   :1.0000   Max.   :7420    
##                                                      NA's   :14547   
##   Visa_status    Visa_mfinanciacion_limite Visa_fultimo_cierre      mes   
##  Min.   :0.000   Min.   :        0         Min.   :   0.000    Min.   :9  
##  1st Qu.:0.000   1st Qu.:   101088         1st Qu.:   0.000    1st Qu.:9  
##  Median :0.000   Median :   176904         Median :   0.000    Median :9  
##  Mean   :0.042   Mean   :   342786         Mean   :   4.082    Mean   :9  
##  3rd Qu.:0.000   3rd Qu.:   427886         3rd Qu.:   7.000    3rd Qu.:9  
##  Max.   :9.000   Max.   :229793558         Max.   :4893.000    Max.   :9  
##  NA's   :5997    NA's   :5997              NA's   :6023                   
##  ctrx_quarter_normalizado mpayroll_sobre_edad  mv_status07     
##  Min.   :   0.0           Min.   :     0.0    Min.   : 0.0000  
##  1st Qu.:  54.0           1st Qu.:     0.0    1st Qu.: 0.0000  
##  Median :  95.0           Median :    87.1    Median : 0.0000  
##  Mean   : 108.1           Mean   :  1246.9    Mean   : 0.3844  
##  3rd Qu.: 143.0           3rd Qu.:  1878.8    3rd Qu.: 0.0000  
##  Max.   :3405.0           Max.   :397045.5    Max.   :10.0000  
##                                                                
##  mv_Fvencimiento    mv_Finiciomora   mv_msaldototal     mv_fultimo_cierre 
##  Min.   :-2914360   Min.   :  0.00   Min.   :-1113997   Min.   :   0.000  
##  1st Qu.:   -1856   1st Qu.:  9.00   1st Qu.:    3958   1st Qu.:   0.000  
##  Median :   -1491   Median : 10.00   Median :   16210   Median :   0.000  
##  Mean   :  -12332   Mean   : 11.93   Mean   :   30793   Mean   :   6.698  
##  3rd Qu.:   -1033   3rd Qu.: 10.00   3rd Qu.:   37904   3rd Qu.:   7.000  
##  Max.   :    4992   Max.   :100.00   Max.   : 4876480   Max.   :4893.000  
##  NA's   :5117       NA's   :156457                      NA's   :5140      
##  mv_mpagominimo      mvr_mpagominimo    cproductos_sobre_edad
##  Min.   :      0.0   Min.   :0.000000   Min.   :0.04082      
##  1st Qu.:    315.9   1st Qu.:0.000594   1st Qu.:0.13333      
##  Median :   1860.3   Median :0.003977   Median :0.16667      
##  Mean   :   5874.5   Mean   :0.013754   Mean   :0.17562      
##  3rd Qu.:   4914.0   3rd Qu.:0.012407   3rd Qu.:0.20930      
##  Max.   :2448707.0   Max.   :9.472511   Max.   :0.57143      
##                                                              
##  mcomisiones_sobre_edad mactivos_margen_sobre_edad mpasivos_margen_sobre_edad
##  Min.   :-1419.981      Min.   :-2837.046          Min.   :-1457.525         
##  1st Qu.:    5.652      1st Qu.:  -23.429          1st Qu.:    2.955         
##  Median :   16.290      Median :   -5.085          Median :    9.997         
##  Mean   :   25.090      Mean   :   -5.902          Mean   :   24.614         
##  3rd Qu.:   33.801      3rd Qu.:    0.647          3rd Qu.:   25.229         
##  Max.   : 4806.954      Max.   : 9566.327          Max.   : 5654.559         
##                                                                              
##  internet_lag1    cpayroll_trx_lag1    mes_lag1    mrentabilidad_exp_lag1
##  Min.   :0.0000   Min.   : 0.0000   Min.   : 1     Min.   :0.000e+00     
##  1st Qu.:1.0000   1st Qu.: 0.0000   1st Qu.: 8     1st Qu.:3.439e+05     
##  Median :1.0000   Median : 1.0000   Median : 8     Median :2.199e+06     
##  Mean   :0.9396   Mean   : 0.8287   Mean   : 8     Mean   :5.548e+07     
##  3rd Qu.:1.0000   3rd Qu.: 1.0000   3rd Qu.: 8     3rd Qu.:9.771e+06     
##  Max.   :1.0000   Max.   :44.0000   Max.   :12     Max.   :1.719e+11     
##  NA's   :1820     NA's   :1820      NA's   :1820   NA's   :1820          
##  mcaja_ahorro_dolares_delta1 mdescubierto_preacordado_delta1
##  Min.   :-12573468           Min.   :-1.1700                
##  1st Qu.:        0           1st Qu.: 0.0000                
##  Median :        0           Median : 0.0000                
##  Mean   :    -1221           Mean   :-0.0008                
##  3rd Qu.:     5099           3rd Qu.: 0.0000                
##  Max.   :  9593980           Max.   : 1.1700                
##  NA's   :1820                NA's   :1820                   
##  mcuentas_saldo_delta1 chomebanking_trx_delta1 ctrx_quarter_delta1
##  Min.   :-79581748     Min.   :-9411.000       Min.   :-361.0000  
##  1st Qu.:   -16568     1st Qu.:  -14.000       1st Qu.:  -6.0000  
##  Median :       -7     Median :    0.000       Median :   0.0000  
##  Mean   :   -12301     Mean   :   -2.701       Mean   :   0.7421  
##  3rd Qu.:    14968     3rd Qu.:   10.000       3rd Qu.:   7.0000  
##  Max.   : 40721893     Max.   : 1076.000       Max.   : 717.0000  
##  NA's   :1820          NA's   :1820            NA's   :1820       
##  cliente_edad_lag2 mcuentas_saldo_lag2 ccaja_seguridad_lag2 cpayroll_trx_lag2
##  Min.   : 18.00    Min.   : -4150591   Min.   :0.000        Min.   : 0.000   
##  1st Qu.: 37.00    1st Qu.:     3941   1st Qu.:0.000        1st Qu.: 0.000   
##  Median : 45.00    Median :    44321   Median :0.000        Median : 1.000   
##  Mean   : 46.41    Mean   :   200164   Mean   :0.086        Mean   : 0.836   
##  3rd Qu.: 55.00    3rd Qu.:   145746   3rd Qu.:0.000        3rd Qu.: 1.000   
##  Max.   :100.00    Max.   :104925299   Max.   :7.000        Max.   :52.000   
##  NA's   :3800      NA's   :3800        NA's   :3800         NA's   :3800     
##  cmobile_app_trx_lag2 Master_Fvencimiento_lag2 Master_fechaalta_lag2
##  Min.   :   0.00      Min.   :-2914421         Min.   :   2         
##  1st Qu.:   0.00      1st Qu.:   -1491         1st Qu.: 898         
##  Median :  14.00      Median :    -913         Median :2131         
##  Mean   :  41.79      Mean   :   -1136         Mean   :2449         
##  3rd Qu.:  59.00      3rd Qu.:    -668         3rd Qu.:3669         
##  Max.   :1918.00      Max.   :    6607         Max.   :7359         
##  NA's   :3829         NA's   :18323            NA's   :18323        
##  Visa_mfinanciacion_limite_lag2 Visa_Fvencimiento_lag2    mes_lag2   
##  Min.   :        0              Min.   :-2914421       Min.   : 1    
##  1st Qu.:   101088              1st Qu.:   -1856       1st Qu.: 7    
##  Median :   176904              Median :   -1399       Median : 7    
##  Mean   :   333231              Mean   :  -12515       Mean   : 7    
##  3rd Qu.:   405639              3rd Qu.:    -972       3rd Qu.: 7    
##  Max.   :128515977              Max.   :    5572       Max.   :12    
##  NA's   :9522                   NA's   :9522           NA's   :3800  
##  cproductos_sobre_edad_lag2 mcuenta_corriente_delta2 mcaja_ahorro_delta2
##  Min.   :0.041              Min.   :-5466987         Min.   :-15876469  
##  1st Qu.:0.135              1st Qu.:    -177         1st Qu.:   -19697  
##  Median :0.167              Median :       0         Median :    -2414  
##  Mean   :0.176              Mean   :    -601         Mean   :    -8659  
##  3rd Qu.:0.211              3rd Qu.:       0         3rd Qu.:     3592  
##  Max.   :0.571              Max.   : 5866408         Max.   : 16260502  
##  NA's   :3800               NA's   :3800             NA's   :3800       
##  mcuentas_saldo_delta2 cprestamos_personales_delta2
##  Min.   :-25588554     Min.   :-116.000            
##  1st Qu.:   -24390     1st Qu.:   0.000            
##  Median :     -422     Median :   0.000            
##  Mean   :   -15148     Mean   :   0.039            
##  3rd Qu.:    17600     3rd Qu.:   0.000            
##  Max.   : 37757670     Max.   :  96.000            
##  NA's   :3800          NA's   :3800                
##  mprestamos_personales_delta2 chomebanking_trx_delta2 mv_status07_delta2
##  Min.   :-835396              Min.   :-5492.000       Min.   :-10.000   
##  1st Qu.:      0              1st Qu.:  -22.000       1st Qu.:  0.000   
##  Median :      0              Median :   -1.000       Median :  0.000   
##  Mean   :   1316              Mean   :   -9.033       Mean   :  0.062   
##  3rd Qu.:      0              3rd Qu.:    7.000       3rd Qu.:  0.000   
##  Max.   :2965744              Max.   : 1040.000       Max.   : 10.000   
##  NA's   :3800                 NA's   :3800            NA's   :3800      
##  cproductos_sobre_edad_delta2 internet_tend6   internet_avg6   
##  Min.   :-0.158               Min.   :-1.000   Min.   :0.0000  
##  1st Qu.: 0.000               1st Qu.: 0.000   1st Qu.:1.0000  
##  Median : 0.000               Median : 0.000   Median :1.0000  
##  Mean   :-0.001               Mean   : 0.004   Mean   :0.9352  
##  3rd Qu.: 0.000               3rd Qu.: 0.000   3rd Qu.:1.0000  
##  Max.   : 0.150               Max.   : 1.000   Max.   :1.0000  
##  NA's   :3800                 NA's   :1820     NA's   :1820    
##  cliente_edad_avg6 mrentabilidad_tend6 mrentabilidad_avg6
##  Min.   : 16.50    Min.   :-65321.40   Min.   :-53383.3  
##  1st Qu.: 36.29    1st Qu.:  -179.29   1st Qu.:   276.7  
##  Median : 44.33    Median :    18.87   Median :  1196.5  
##  Mean   : 46.29    Mean   :    87.69   Mean   :  2095.3  
##  3rd Qu.: 55.00    3rd Qu.:   263.42   3rd Qu.:  2625.1  
##  Max.   :100.00    Max.   :109438.39   Max.   :361127.9  
##  NA's   :1820      NA's   :1820        NA's   :1820      
##  mrentabilidad_annual_tend6 mactivos_margen_tend6 cproductos_tend6 
##  Min.   :-657286.7          Min.   :-23698.23     Min.   :-3.0000  
##  1st Qu.:  -1590.5          1st Qu.:   -96.48     1st Qu.: 0.0000  
##  Median :   -249.5          Median :     0.00     Median : 0.0000  
##  Mean   :   -955.6          Mean   :    47.42     Mean   : 0.0068  
##  3rd Qu.:    628.1          3rd Qu.:   100.21     3rd Qu.: 0.0000  
##  Max.   : 272151.4          Max.   : 93303.99     Max.   : 3.0000  
##  NA's   :1820               NA's   :1820          NA's   :1820     
##  mcuenta_corriente_tend6 mcuenta_corriente_avg6 mcaja_ahorro_avg6 
##  Min.   :-2749985.2      Min.   :-1541918       Min.   :    -559  
##  1st Qu.:     -42.4      1st Qu.:    -652       1st Qu.:    7601  
##  Median :       0.0      Median :     -17       Median :   24732  
##  Mean   :    -115.4      Mean   :    3893       Mean   :   69836  
##  3rd Qu.:       8.4      3rd Qu.:       0       3rd Qu.:   66326  
##  Max.   : 2017146.1      Max.   :15126609       Max.   :11373262  
##  NA's   :1820            NA's   :1820           NA's   :1820      
##  mdescubierto_preacordado_tend6 mcuentas_saldo_tend6 ctarjeta_visa_trx_tend6
##  Min.   :-1.1700                Min.   :-16490510    Min.   :-39.3286       
##  1st Qu.: 0.0000                1st Qu.:    -3277    1st Qu.: -0.3143       
##  Median : 0.0000                Median :      444    Median :  0.0000       
##  Mean   :-0.0009                Mean   :     1521    Mean   :  0.2681       
##  3rd Qu.: 0.0000                3rd Qu.:     8279    3rd Qu.:  0.6429       
##  Max.   : 0.5850                Max.   :  8251645    Max.   :126.0857       
##  NA's   :1820                   NA's   :1820         NA's   :1820           
##  cprestamos_personales_tend6 mprestamos_personales_tend6
##  Min.   :-7.0714             Min.   :-221977.3          
##  1st Qu.: 0.0000             1st Qu.:      0.0          
##  Median : 0.0000             Median :      0.0          
##  Mean   : 0.0173             Mean   :    351.9          
##  3rd Qu.: 0.0000             3rd Qu.:      0.0          
##  Max.   :42.7571             Max.   : 912600.0          
##  NA's   :1820                NA's   :1820               
##  ccomisiones_mantenimiento_tend6 mcomisiones_mantenimiento_tend6
##  Min.   :-18.743                 Min.   :-5717.850              
##  1st Qu.:  0.000                 1st Qu.:    0.000              
##  Median :  0.000                 Median :    0.000              
##  Mean   : -0.005                 Mean   :   -2.051              
##  3rd Qu.:  0.000                 3rd Qu.:    0.000              
##  Max.   :  6.000                 Max.   : 3233.339              
##  NA's   :1820                    NA's   :1820                   
##  mcomisiones_mantenimiento_avg6 ctransferencias_recibidas_tend6
##  Min.   :-4715.3                Min.   :-112.6000              
##  1st Qu.:    0.0                1st Qu.:  -0.1143              
##  Median :    0.0                Median :   0.0286              
##  Mean   :  400.4                Mean   :   0.1578              
##  3rd Qu.:  680.7                3rd Qu.:   0.2857              
##  Max.   : 5041.3                Max.   : 195.5714              
##  NA's   :1820                   NA's   :1820                   
##  ctransferencias_recibidas_avg6 mtransferencias_emitidas_avg6 tcallcenter_tend6
##  Min.   :   0.0000              Min.   :       0              Min.   :-1.0000  
##  1st Qu.:   0.8333              1st Qu.:       0              1st Qu.: 0.0000  
##  Median :   2.0000              Median :   10686              Median : 0.0000  
##  Mean   :   3.3485              Mean   :   49896              Mean   :-0.0011  
##  3rd Qu.:   3.6667              3rd Qu.:   38521              3rd Qu.: 0.0000  
##  Max.   :1162.1667              Max.   :30683471              Max.   : 1.0000  
##  NA's   :1820                   NA's   :1820                  NA's   :1820     
##  thomebanking_avg6 chomebanking_trx_tend6 chomebanking_trx_avg6
##  Min.   :0.0000    Min.   :-1401.4000     Min.   :   0.000     
##  1st Qu.:0.6667    1st Qu.:   -5.1000     1st Qu.:   9.667     
##  Median :1.0000    Median :   -0.2286     Median :  38.167     
##  Mean   :0.7902    Mean   :   -1.8010     Mean   :  62.427     
##  3rd Qu.:1.0000    3rd Qu.:    1.8857     3rd Qu.:  87.500     
##  Max.   :1.0000    Max.   : 1178.9000     Max.   :9855.167     
##  NA's   :1820      NA's   :1820           NA's   :1820         
##  ctrx_quarter_tend6  Master_Fvencimiento_avg6 Visa_status_avg6
##  Min.   :-205.0000   Min.   :-2914467.0       Min.   :0.000   
##  1st Qu.:  -0.9714   1st Qu.:   -1475.3       1st Qu.:0.000   
##  Median :   2.1429   Median :    -928.3       Median :0.000   
##  Mean   :   3.6031   Mean   :   -1148.3       Mean   :0.028   
##  3rd Qu.:   6.9000   3rd Qu.:    -713.3       3rd Qu.:0.000   
##  Max.   : 521.4571   Max.   :    6591.7       Max.   :9.000   
##  NA's   :1820        NA's   :15715            NA's   :6931    
##  Visa_mpagospesos_tend6 Visa_fechaalta_tend6 Visa_cconsumos_tend6
##  Min.   :-720876.4      Min.   :-3626.50     Min.   :-71.000     
##  1st Qu.:  -2122.3      1st Qu.:   30.63     1st Qu.: -0.286     
##  Median :   -255.3      Median :   30.63     Median :  0.000     
##  Mean   :  -1000.9      Mean   :   30.16     Mean   :  0.181     
##  3rd Qu.:    899.5      3rd Qu.:   30.63     3rd Qu.:  0.457     
##  Max.   : 245008.7      Max.   : 2000.00     Max.   :119.686     
##  NA's   :21856          NA's   :6931         NA's   :21856       
##  Visa_cconsumos_avg6    mes_avg6     ctrx_quarter_normalizado_tend6
##  Min.   :  0.000     Min.   :3.750   Min.   :-213.000              
##  1st Qu.:  2.333     1st Qu.:6.500   1st Qu.:  -1.029              
##  Median :  5.667     Median :6.500   Median :   2.100              
##  Mean   :  7.991     Mean   :6.575   Mean   :   3.526              
##  3rd Qu.: 10.667     3rd Qu.:6.500   3rd Qu.:   6.829              
##  Max.   :314.833     Max.   :9.833   Max.   : 521.457              
##  NA's   :21856       NA's   :1820    NA's   :1820                  
##  mv_status01_tend6 mv_status01_avg6 mv_status07_tend6 mv_Fvencimiento_tend6
##  Min.   :-9.00     Min.   :0.000    Min.   :-9.0000   Min.   :-1456085.0   
##  1st Qu.: 0.00     1st Qu.:0.000    1st Qu.: 0.0000   1st Qu.:      30.6   
##  Median : 0.00     Median :0.000    Median : 0.0000   Median :      30.6   
##  Mean   : 0.02     Mean   :0.039    Mean   : 0.0105   Mean   :      71.3   
##  3rd Qu.: 0.00     3rd Qu.:0.000    3rd Qu.: 0.0000   3rd Qu.:      30.6   
##  Max.   : 9.00     Max.   :9.000    Max.   : 9.0000   Max.   :  749195.5   
##  NA's   :6260      NA's   :6260     NA's   :1820      NA's   :6260         
##  mv_mpagospesos_tend6 cproductos_sobre_edad_tend6
##  Min.   :-720876.4    Min.   :-0.0654            
##  1st Qu.:  -1950.2    1st Qu.:-0.0008            
##  Median :    -23.1    Median : 0.0000            
##  Mean   :  -1029.6    Mean   :-0.0002            
##  3rd Qu.:    668.9    3rd Qu.: 0.0000            
##  Max.   : 465369.1    Max.   : 0.0952            
##  NA's   :1820         NA's   :1820               
##  mrentabilidad_annual_sobre_edad_tend6 mcomisiones_sobre_edad_avg6
##  Min.   :-10601.399                    Min.   :-449.072           
##  1st Qu.:   -37.156                    1st Qu.:   6.998           
##  Median :    -6.166                    Median :  16.366           
##  Mean   :   -21.090                    Mean   :  23.028           
##  3rd Qu.:    13.271                    3rd Qu.:  31.306           
##  Max.   :  6803.786                    Max.   :2828.927           
##  NA's   :1820                          NA's   :1820               
##  mactivos_margen_sobre_edad_avg6 mrentabilidad_annual_exp_tend6
##  Min.   :-1563.106               Min.   :-3.930e+12            
##  1st Qu.:  -22.175               1st Qu.:-3.609e+07            
##  Median :   -5.944               Median :-6.108e+04            
##  Mean   :   -9.098               Mean   :-3.203e+08            
##  3rd Qu.:    0.225               3rd Qu.: 2.354e+07            
##  Max.   : 5708.955               Max.   : 1.777e+12            
##  NA's   :1820                    NA's   :1820                  
##  cliente_edad_avg3 mactivos_margen_avg3 mpasivos_margen_avg3 cproductos_tend3 
##  Min.   : 18.00    Min.   :-78800.95    Min.   :-58473.3     Min.   :-3.5000  
##  1st Qu.: 36.67    1st Qu.: -1033.72    1st Qu.:   209.2     1st Qu.: 0.0000  
##  Median : 44.67    Median :  -269.47    Median :   572.9     Median : 0.0000  
##  Mean   : 46.42    Mean   :  -317.41    Mean   :  1298.6     Mean   :-0.0069  
##  3rd Qu.: 55.00    3rd Qu.:    19.55    3rd Qu.:  1340.4     3rd Qu.: 0.0000  
##  Max.   :100.00    Max.   :291019.34    Max.   :247177.0     Max.   : 3.0000  
##  NA's   :1820      NA's   :1820         NA's   :1820         NA's   :1820     
##  mcuenta_corriente_tend3 mcuenta_corriente_avg3 ccaja_ahorro_avg3
##  Min.   :-2733493.3      Min.   :-3076922       Min.   : 2.000   
##  1st Qu.:     -88.1      1st Qu.:    -559       1st Qu.: 2.000   
##  Median :       0.0      Median :       0       Median : 2.000   
##  Mean   :    -308.4      Mean   :    3787       Mean   : 2.128   
##  3rd Qu.:       0.0      3rd Qu.:       0       3rd Qu.: 2.000   
##  Max.   : 2933204.2      Max.   :10774657       Max.   :10.000   
##  NA's   :1820            NA's   :1820           NA's   :1820     
##  mcaja_ahorro_avg3  mtarjeta_visa_consumo_avg3 cpayroll_trx_avg3
##  Min.   :    -512   Min.   :      0            Min.   : 0.0000  
##  1st Qu.:    6815   1st Qu.:   4331            1st Qu.: 0.0000  
##  Median :   23591   Median :  15068            Median : 1.0000  
##  Mean   :   72194   Mean   :  25176            Mean   : 0.8348  
##  3rd Qu.:   65350   3rd Qu.:  33076            3rd Qu.: 1.3333  
##  Max.   :14602681   Max.   :2406487            Max.   :29.0000  
##  NA's   :1820       NA's   :1820               NA's   :1820     
##     mes_avg3       clase_ternaria  
##  Min.   : 4.000           :     0  
##  1st Qu.: 8.000   BAJA+1  :   448  
##  Median : 8.000   BAJA+2  :   526  
##  Mean   : 8.006   CONTINUA:156049  
##  3rd Qu.: 8.000                    
##  Max.   :10.667                    
##  NA's   :1820

Otra muestra foto mes

df = dataset[ foto_mes==202010, ]

df_numeric = df %>% dplyr::select_if(is.numeric)
df_numeric = as_tibble(df_numeric)
var_target = df %>% dplyr::select(clase_ternaria) #%>% 
  # mutate(clase_ternaria = case_when(
  #   clase_ternaria == "CONTINUA"  ~ 1,
  #   clase_ternaria == 'BAJA+1' ~ -1,
  #   clase_ternaria == 'BAJA+2' ~ -2))
activo_boxplot = T
df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(1:20) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 158416 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(21:40) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 361124 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(41:60) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 92928 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(61:80) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 52840 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(81:100) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 80374 rows containing non-finite values (stat_boxplot).

df_numeric %>% 
  #dplyr::select(var_elegidas) %>% 
  dplyr::select(101:120) %>% 
  scale( center = TRUE, scale = TRUE) %>%  # Se escalan las variables, (x-median)/sd.
  bind_cols(var_target) %>%  
  pivot_longer(names_to = 'variables', values_to = 'cantidad', -clase_ternaria) %>% 
  rename(grupo = clase_ternaria) %>% 
  ggplot(aes(x=variables, y=cantidad, color=as.factor(grupo))) + 
  geom_boxplot() +
  #stat_summary(fun.y=mean, geom="point", color="red") +
  facet_wrap(~variables, scales = 'free') +
  labs(title = "Boxplot por grupo con variables escaladas")
## Warning: Removed 89288 rows containing non-finite values (stat_boxplot).

summary(df)
##  numero_de_cliente     foto_mes         internet      mactivos_margen    
##  Min.   : 4572300   Min.   :202010   Min.   :0.0000   Min.   :-144174.8  
##  1st Qu.:15771213   1st Qu.:202010   1st Qu.:0.5000   1st Qu.:  -1322.4  
##  Median :24561630   Median :202010   Median :0.5000   Median :   -375.3  
##  Mean   :26093227   Mean   :202010   Mean   :0.4843   Mean   :   -636.4  
##  3rd Qu.:35613400   3rd Qu.:202010   3rd Qu.:0.5000   3rd Qu.:      0.0  
##  Max.   :60989831   Max.   :202010   Max.   :2.5000   Max.   : 199073.8  
##                                                                          
##  mpasivos_margen      cproductos     mcuenta_corriente   ccaja_ahorro  
##  Min.   :-42815.4   Min.   : 3.000   Min.   :-1368971   Min.   : 2.00  
##  1st Qu.:   183.2   1st Qu.: 7.000   1st Qu.:    -497   1st Qu.: 2.00  
##  Median :   561.4   Median : 7.000   Median :       0   Median : 2.00  
##  Mean   :  1365.9   Mean   : 7.596   Mean   :    3414   Mean   : 2.13  
##  3rd Qu.:  1352.4   3rd Qu.: 8.000   3rd Qu.:       0   3rd Qu.: 2.00  
##  Max.   :433961.0   Max.   :18.000   Max.   :13685681   Max.   :10.00  
##                                                                        
##   mcaja_ahorro      mdescubierto_preacordado mcuentas_saldo     
##  Min.   :  -10585   Min.   :0.00             Min.   : -1343701  
##  1st Qu.:    5854   1st Qu.:1.17             1st Qu.:     1217  
##  Median :   22052   Median :1.17             Median :    30849  
##  Mean   :   71648   Mean   :1.13             Mean   :   171688  
##  3rd Qu.:   60606   3rd Qu.:1.17             3rd Qu.:   119052  
##  Max.   :21212170   Max.   :1.17             Max.   :109236874  
##                                                                 
##  ctarjeta_visa_trx mtarjeta_visa_consumo mprestamos_personales  cpayroll_trx   
##  Min.   :  0.00    Min.   :      0       Min.   :      0       Min.   : 0.000  
##  1st Qu.:  2.00    1st Qu.:   3764       1st Qu.:      0       1st Qu.: 0.000  
##  Median :  8.00    Median :  14746       Median :      0       Median : 1.000  
##  Mean   : 11.49    Mean   :  26501       Mean   :  24747       Mean   : 0.836  
##  3rd Qu.: 16.00    3rd Qu.:  33688       3rd Qu.:      0       3rd Qu.: 1.000  
##  Max.   :295.00    Max.   :1359307       Max.   :4440117       Max.   :68.000  
##                                                                                
##     mpayroll        mcuenta_debitos_automaticos mpagomiscuentas   
##  Min.   :       0   Min.   :       0            Min.   :       0  
##  1st Qu.:       0   1st Qu.:       0            1st Qu.:       0  
##  Median :    2925   Median :       0            Median :     292  
##  Mean   :   52784   Mean   :    7375            Mean   :   18226  
##  3rd Qu.:   80141   3rd Qu.:    2992            3rd Qu.:   10858  
##  Max.   :33462000   Max.   :39325005            Max.   :53374932  
##                                                                   
##  mcomisiones_mantenimiento mtransferencias_recibidas chomebanking_trx  
##  Min.   :-15716.6          Min.   :        0         Min.   :    0.00  
##  1st Qu.:     0.0          1st Qu.:     1170         1st Qu.:    5.00  
##  Median :     0.0          Median :    35100         Median :   31.00  
##  Mean   :   407.9          Mean   :   130748         Mean   :   58.09  
##  3rd Qu.:   680.7          3rd Qu.:    97110         3rd Qu.:   81.00  
##  Max.   : 10432.6          Max.   :186253435         Max.   :13115.00  
##                                                                        
##   ctrx_quarter     tmobile_app     Master_fechaalta  Visa_status  
##  Min.   :   0.0   Min.   :0.0000   Min.   :   3     Min.   :0.00  
##  1st Qu.:  54.0   1st Qu.:0.0000   1st Qu.: 866     1st Qu.:0.00  
##  Median :  95.0   Median :0.5000   Median :2120     Median :0.00  
##  Mean   : 108.8   Mean   :0.3493   Mean   :2464     Mean   :0.01  
##  3rd Qu.: 144.0   3rd Qu.:0.5000   3rd Qu.:3706     3rd Qu.:0.00  
##  Max.   :3318.0   Max.   :1.0000   Max.   :7451     Max.   :9.00  
##                                    NA's   :15199    NA's   :6590  
##  Visa_mfinanciacion_limite Visa_fultimo_cierre      mes    
##  Min.   :       0          Min.   :   3.00     Min.   :10  
##  1st Qu.:  101088          1st Qu.:   3.00     1st Qu.:10  
##  Median :  176904          Median :   3.00     Median :10  
##  Mean   :  343547          Mean   :   7.18     Mean   :10  
##  3rd Qu.:  440872          3rd Qu.:  10.00     3rd Qu.:10  
##  Max.   :79141002          Max.   :4924.00     Max.   :10  
##  NA's   :6590              NA's   :6631                    
##  ctrx_quarter_normalizado mpayroll_sobre_edad  mv_status07   
##  Min.   :   0.0           Min.   :     0.0    Min.   : 0.00  
##  1st Qu.:  54.0           1st Qu.:     0.0    1st Qu.: 0.00  
##  Median :  95.0           Median :    61.5    Median : 0.00  
##  Mean   : 108.9           Mean   :  1263.8    Mean   : 0.36  
##  3rd Qu.: 144.0           3rd Qu.:  1959.4    3rd Qu.: 0.00  
##  Max.   :3318.0           Max.   :743600.0    Max.   :10.00  
##                                                              
##  mv_Fvencimiento    mv_Finiciomora   mv_msaldototal     mv_fultimo_cierre 
##  Min.   :-2914329   Min.   : 3.00    Min.   :-1315914   Min.   :   3.000  
##  1st Qu.:   -1825   1st Qu.:18.00    1st Qu.:    4038   1st Qu.:   3.000  
##  Median :   -1460   Median :19.00    Median :   16188   Median :   3.000  
##  Mean   :  -12041   Mean   :19.06    Mean   :   31389   Mean   :   9.755  
##  3rd Qu.:   -1033   3rd Qu.:19.00    3rd Qu.:   38105   3rd Qu.:  10.000  
##  Max.   :    5023   Max.   :27.00    Max.   : 2846357   Max.   :4924.000  
##  NA's   :5541       NA's   :156581                      NA's   :5576      
##  mv_mpagominimo      mvr_mpagominimo    cproductos_sobre_edad
##  Min.   :      0.0   Min.   :0.000000   Min.   :0.04082      
##  1st Qu.:    315.9   1st Qu.:0.000595   1st Qu.:0.13333      
##  Median :   1836.9   Median :0.003917   Median :0.16667      
##  Mean   :   5921.9   Mean   :0.013990   Mean   :0.17540      
##  3rd Qu.:   4925.7   3rd Qu.:0.012222   3rd Qu.:0.20833      
##  Max.   :2809496.4   Max.   :7.672066   Max.   :0.57143      
##                                                              
##  mcomisiones_sobre_edad mactivos_margen_sobre_edad mpasivos_margen_sobre_edad
##  Min.   :-1499.219      Min.   :-3003.642          Min.   :-1654.939         
##  1st Qu.:    5.275      1st Qu.:  -30.134          1st Qu.:    4.119         
##  Median :   16.443      Median :   -8.151          Median :   12.793         
##  Mean   :   24.914      Mean   :  -14.912          Mean   :   29.411         
##  3rd Qu.:   34.248      3rd Qu.:    0.000          3rd Qu.:   30.392         
##  Max.   : 4910.058      Max.   : 5578.986          Max.   : 5687.363         
##                                                                              
##  internet_lag1    cpayroll_trx_lag1    mes_lag1    mrentabilidad_exp_lag1
##  Min.   :0.0000   Min.   : 0.0000   Min.   : 1     Min.   :0.000e+00     
##  1st Qu.:1.0000   1st Qu.: 0.0000   1st Qu.: 9     1st Qu.:3.053e+05     
##  Median :1.0000   Median : 1.0000   Median : 9     Median :2.029e+06     
##  Mean   :0.9404   Mean   : 0.8399   Mean   : 9     Mean   :5.357e+07     
##  3rd Qu.:1.0000   3rd Qu.: 1.0000   3rd Qu.: 9     3rd Qu.:9.218e+06     
##  Max.   :1.0000   Max.   :62.0000   Max.   :12     Max.   :4.768e+11     
##  NA's   :1823     NA's   :1823      NA's   :1823   NA's   :1823          
##  mcaja_ahorro_dolares_delta1 mdescubierto_preacordado_delta1
##  Min.   :-23181328           Min.   :-1.1700                
##  1st Qu.:    -1188           1st Qu.: 0.0000                
##  Median :        0           Median : 0.0000                
##  Mean   :   -17180           Mean   :-0.0007                
##  3rd Qu.:      252           3rd Qu.: 0.0000                
##  Max.   : 42855810           Max.   : 1.1700                
##  NA's   :1823                NA's   :1823                   
##  mcuentas_saldo_delta1 chomebanking_trx_delta1 ctrx_quarter_delta1
##  Min.   :-27446071     Min.   :-2961.000       Min.   :-658.000   
##  1st Qu.:   -14741     1st Qu.:  -10.000       1st Qu.:  -5.000   
##  Median :      -33     Median :    0.000       Median :   0.000   
##  Mean   :    -9875     Mean   :    2.517       Mean   :   1.107   
##  3rd Qu.:    12817     3rd Qu.:   13.000       3rd Qu.:   7.000   
##  Max.   : 91540071     Max.   : 6524.000       Max.   : 456.000   
##  NA's   :1823          NA's   :1823            NA's   :1823       
##  cliente_edad_lag2 mcuentas_saldo_lag2 ccaja_seguridad_lag2 cpayroll_trx_lag2
##  Min.   : 18.00    Min.   : -3078085   Min.   :0.000        Min.   : 0.000   
##  1st Qu.: 37.00    1st Qu.:     2817   1st Qu.:0.000        1st Qu.: 0.000   
##  Median : 45.00    Median :    41421   Median :0.000        Median : 1.000   
##  Mean   : 46.41    Mean   :   196283   Mean   :0.086        Mean   : 0.831   
##  3rd Qu.: 55.00    3rd Qu.:   139440   3rd Qu.:0.000        3rd Qu.: 1.000   
##  Max.   :100.00    Max.   :102836987   Max.   :7.000        Max.   :44.000   
##  NA's   :3643      NA's   :3643        NA's   :3643         NA's   :3643     
##  cmobile_app_trx_lag2 Master_Fvencimiento_lag2 Master_fechaalta_lag2
##  Min.   :   0.00      Min.   :-2914390         Min.   :   1         
##  1st Qu.:   0.00      1st Qu.:   -1521         1st Qu.: 888         
##  Median :  15.00      Median :    -910         Median :2125         
##  Mean   :  40.31      Mean   :   -1094         Mean   :2450         
##  3rd Qu.:  58.00      3rd Qu.:    -667         3rd Qu.:3679         
##  Max.   :2224.00      Max.   :    6638         Max.   :7390         
##  NA's   :3673         NA's   :17963            NA's   :17963        
##  Visa_mfinanciacion_limite_lag2 Visa_Fvencimiento_lag2    mes_lag2   
##  Min.   :       0               Min.   :-2914390       Min.   : 1    
##  1st Qu.:  101088               1st Qu.:   -1855       1st Qu.: 8    
##  Median :  176904               Median :   -1398       Median : 8    
##  Mean   :  334498               Mean   :  -12449       Mean   : 8    
##  3rd Qu.:  415181               3rd Qu.:    -971       3rd Qu.: 8    
##  Max.   :78686027               Max.   :    5603       Max.   :12    
##  NA's   :9353                   NA's   :9354           NA's   :3643  
##  cproductos_sobre_edad_lag2 mcuenta_corriente_delta2 mcaja_ahorro_delta2
##  Min.   :0.041              Min.   :-5272157         Min.   :-12296072  
##  1st Qu.:0.135              1st Qu.:     -93         1st Qu.:    -8517  
##  Median :0.167              Median :       0         Median :        0  
##  Mean   :0.176              Mean   :    -365         Mean   :      946  
##  3rd Qu.:0.211              3rd Qu.:       0         3rd Qu.:    10433  
##  Max.   :0.600              Max.   : 8053898         Max.   :  8848751  
##  NA's   :3643               NA's   :3643             NA's   :3643       
##  mcuentas_saldo_delta2 cprestamos_personales_delta2
##  Min.   :-73921144     Min.   :-120.000            
##  1st Qu.:   -25574     1st Qu.:   0.000            
##  Median :     -413     Median :   0.000            
##  Mean   :   -22343     Mean   :   0.045            
##  3rd Qu.:    16015     3rd Qu.:   0.000            
##  Max.   : 91509422     Max.   : 103.000            
##  NA's   :3643          NA's   :3643                
##  mprestamos_personales_delta2 chomebanking_trx_delta2 mv_status07_delta2
##  Min.   :-1056506             Min.   :-9380.000       Min.   :-10.000   
##  1st Qu.:       0             1st Qu.:  -13.000       1st Qu.:  0.000   
##  Median :       0             Median :    0.000       Median :  0.000   
##  Mean   :    1580             Mean   :   -0.188       Mean   :  0.039   
##  3rd Qu.:       0             3rd Qu.:   13.000       3rd Qu.:  0.000   
##  Max.   : 1999200             Max.   : 1623.000       Max.   : 10.000   
##  NA's   :3643                 NA's   :3643            NA's   :3643      
##  cproductos_sobre_edad_delta2 internet_tend6    internet_avg6   
##  Min.   :-0.250               Min.   :-0.5000   Min.   :0.0000  
##  1st Qu.: 0.000               1st Qu.:-0.0714   1st Qu.:0.9167  
##  Median : 0.000               Median :-0.0714   Median :0.9167  
##  Mean   :-0.001               Mean   :-0.0714   Mean   :0.8602  
##  3rd Qu.: 0.000               3rd Qu.:-0.0714   3rd Qu.:0.9167  
##  Max.   : 0.174               Max.   : 0.7500   Max.   :1.2500  
##  NA's   :3643                 NA's   :1823      NA's   :1823    
##  cliente_edad_avg6 mrentabilidad_tend6 mrentabilidad_avg6
##  Min.   : 17.60    Min.   :-51225.43   Min.   :-59063.7  
##  1st Qu.: 36.33    1st Qu.:  -219.80   1st Qu.:   234.7  
##  Median : 44.33    Median :    -0.90   Median :  1165.3  
##  Mean   : 46.30    Mean   :    54.16   Mean   :  2089.2  
##  3rd Qu.: 55.00    3rd Qu.:   224.42   3rd Qu.:  2625.3  
##  Max.   :100.00    Max.   : 59260.91   Max.   :336525.8  
##  NA's   :1823      NA's   :1823        NA's   :1823      
##  mrentabilidad_annual_tend6 mactivos_margen_tend6 cproductos_tend6 
##  Min.   :-714421.5          Min.   :-30065.73     Min.   :-2.0000  
##  1st Qu.:  -1466.3          1st Qu.:  -142.87     1st Qu.: 0.0000  
##  Median :   -147.3          Median :    -8.84     Median : 0.0000  
##  Mean   :   -691.7          Mean   :    -7.28     Mean   : 0.0029  
##  3rd Qu.:    795.2          3rd Qu.:    64.30     3rd Qu.: 0.0000  
##  Max.   : 270554.4          Max.   : 50406.46     Max.   : 4.0000  
##  NA's   :1823               NA's   :1823          NA's   :1823     
##  mcuenta_corriente_tend6 mcuenta_corriente_avg6 mcaja_ahorro_avg6 
##  Min.   :-3346989        Min.   :-1138524       Min.   :   -1850  
##  1st Qu.:     -57        1st Qu.:    -671       1st Qu.:    7704  
##  Median :       0        Median :     -20       Median :   24634  
##  Mean   :    -148        Mean   :    3815       Mean   :   70465  
##  3rd Qu.:       4        3rd Qu.:       0       3rd Qu.:   65916  
##  Max.   : 1517373        Max.   :12853162       Max.   :11956005  
##  NA's   :1823            NA's   :1823           NA's   :1823      
##  mdescubierto_preacordado_tend6 mcuentas_saldo_tend6 ctarjeta_visa_trx_tend6
##  Min.   :-1.1700                Min.   :-6924402     Min.   :-38.0000       
##  1st Qu.: 0.0000                1st Qu.:   -5265     1st Qu.: -0.1714       
##  Median : 0.0000                Median :       0     Median :  0.0714       
##  Mean   :-0.0009                Mean   :   -1969     Mean   :  0.4046       
##  3rd Qu.: 0.0000                3rd Qu.:    5881     3rd Qu.:  0.7714       
##  Max.   : 0.3510                Max.   :13483459     Max.   : 54.5429       
##  NA's   :1823                   NA's   :1823         NA's   :1823           
##  cprestamos_personales_tend6 mprestamos_personales_tend6
##  Min.   :-18.43              Min.   :-196881.4          
##  1st Qu.:  0.00              1st Qu.:      0.0          
##  Median :  0.00              Median :      0.0          
##  Mean   :  0.02              Mean   :    564.6          
##  3rd Qu.:  0.00              3rd Qu.:      0.0          
##  Max.   : 48.04              Max.   : 797668.4          
##  NA's   :1823                NA's   :1823               
##  ccomisiones_mantenimiento_tend6 mcomisiones_mantenimiento_tend6
##  Min.   :-11.7143                Min.   :-5238.880              
##  1st Qu.:  0.0000                1st Qu.:    0.000              
##  Median :  0.0000                Median :    0.000              
##  Mean   : -0.0039                Mean   :   -0.172              
##  3rd Qu.:  0.0000                3rd Qu.:    0.000              
##  Max.   :  4.8000                Max.   : 3353.019              
##  NA's   :1823                    NA's   :1823                   
##  mcomisiones_mantenimiento_avg6 ctransferencias_recibidas_tend6
##  Min.   :-4889.8                Min.   :-60.4571               
##  1st Qu.:    0.0                1st Qu.: -0.1714               
##  Median :    0.0                Median :  0.0000               
##  Mean   :  399.1                Mean   :  0.0651               
##  3rd Qu.:  680.7                3rd Qu.:  0.2286               
##  Max.   : 5041.3                Max.   :136.6286               
##  NA's   :1823                   NA's   :1823                   
##  ctransferencias_recibidas_avg6 mtransferencias_emitidas_avg6 tcallcenter_tend6
##  Min.   :   0.0000              Min.   :       0              Min.   :-1.0000  
##  1st Qu.:   0.8333              1st Qu.:       0              1st Qu.: 0.0000  
##  Median :   2.0000              Median :   11944              Median : 0.0000  
##  Mean   :   3.4829              Mean   :   54316              Mean   :-0.0024  
##  3rd Qu.:   3.6667              3rd Qu.:   41828              3rd Qu.: 0.0000  
##  Max.   :1162.6667              Max.   :42786719              Max.   : 1.0000  
##  NA's   :1823                   NA's   :1823                  NA's   :1823     
##  thomebanking_avg6 chomebanking_trx_tend6 chomebanking_trx_avg6
##  Min.   :0.0000    Min.   :-1410.1714     Min.   :    0.000    
##  1st Qu.:0.6667    1st Qu.:   -5.7286     1st Qu.:    9.417    
##  Median :1.0000    Median :   -0.4571     Median :   37.250    
##  Mean   :0.7932    Mean   :   -2.3812     Mean   :   61.733    
##  3rd Qu.:1.0000    3rd Qu.:    1.5143     3rd Qu.:   86.333    
##  Max.   :1.0000    Max.   :  462.8571     Max.   :10544.333    
##  NA's   :1823      NA's   :1823           NA's   :1823         
##  ctrx_quarter_tend6  Master_Fvencimiento_avg6 Visa_status_avg6
##  Min.   :-225.1143   Min.   :-2914451.7       Min.   :0.000   
##  1st Qu.:   0.6286   1st Qu.:   -1505.3       1st Qu.:0.000   
##  Median :   4.2286   Median :    -925.7       Median :0.000   
##  Mean   :   5.9292   Mean   :   -1126.8       Mean   :0.026   
##  3rd Qu.:   9.4000   3rd Qu.:    -682.7       3rd Qu.:0.000   
##  Max.   : 573.4000   Max.   :    6622.3       Max.   :9.000   
##  NA's   :1823        NA's   :15669            NA's   :7037    
##  Visa_mpagospesos_tend6 Visa_fechaalta_tend6 Visa_cconsumos_tend6
##  Min.   :-554544.5      Min.   :-3981.00     Min.   :-55.000     
##  1st Qu.:  -2791.5      1st Qu.:   30.63     1st Qu.: -0.257     
##  Median :   -651.8      Median :   30.63     Median :  0.000     
##  Mean   :  -1860.8      Mean   :   30.34     Mean   :  0.147     
##  3rd Qu.:    402.5      3rd Qu.:   30.63     3rd Qu.:  0.429     
##  Max.   : 162030.5      Max.   :  968.00     Max.   : 41.000     
##  NA's   :21463          NA's   :7037         NA's   :21463       
##  Visa_cconsumos_avg6    mes_avg6      ctrx_quarter_normalizado_tend6
##  Min.   :  0.000     Min.   : 4.000   Min.   :-241.000              
##  1st Qu.:  2.333     1st Qu.: 7.500   1st Qu.:   0.600              
##  Median :  5.500     Median : 7.500   Median :   4.171              
##  Mean   :  7.892     Mean   : 7.568   Mean   :   5.851              
##  3rd Qu.: 10.500     3rd Qu.: 7.500   3rd Qu.:   9.343              
##  Max.   :342.500     Max.   :10.167   Max.   : 573.400              
##  NA's   :21463       NA's   :1823     NA's   :1823                  
##  mv_status01_tend6 mv_status01_avg6 mv_status07_tend6 mv_Fvencimiento_tend6
##  Min.   :-9.000    Min.   :0.000    Min.   :-9.0000   Min.   :-873638.7    
##  1st Qu.: 0.000    1st Qu.:0.000    1st Qu.: 0.0000   1st Qu.:     30.6    
##  Median : 0.000    Median :0.000    Median : 0.0000   Median :     30.6    
##  Mean   : 0.024    Mean   :0.034    Mean   : 0.0129   Mean   :    127.1    
##  3rd Qu.: 0.000    3rd Qu.:0.000    3rd Qu.: 0.0000   3rd Qu.:     30.6    
##  Max.   : 9.000    Max.   :9.000    Max.   : 9.0000   Max.   : 749218.4    
##  NA's   :6339      NA's   :6339     NA's   :1823      NA's   :6339         
##  mv_mpagospesos_tend6 cproductos_sobre_edad_tend6
##  Min.   :-736701.5    Min.   :-0.0562            
##  1st Qu.:  -2686.9    1st Qu.:-0.0009            
##  Median :   -405.6    Median : 0.0000            
##  Mean   :  -1900.4    Mean   :-0.0003            
##  3rd Qu.:    198.9    3rd Qu.: 0.0000            
##  Max.   : 265111.5    Max.   : 0.0833            
##  NA's   :1823         NA's   :1823               
##  mrentabilidad_annual_sobre_edad_tend6 mcomisiones_sobre_edad_avg6
##  Min.   :-11542.871                    Min.   :-565.306           
##  1st Qu.:   -34.557                    1st Qu.:   7.262           
##  Median :    -3.835                    Median :  16.916           
##  Mean   :   -15.442                    Mean   :  23.719           
##  3rd Qu.:    16.944                    3rd Qu.:  32.132           
##  Max.   :  6763.859                    Max.   :2703.999           
##  NA's   :1823                          NA's   :1823               
##  mactivos_margen_sobre_edad_avg6 mrentabilidad_annual_exp_tend6
##  Min.   :-1642.046               Min.   :-3.347e+12            
##  1st Qu.:  -23.526               1st Qu.:-2.953e+07            
##  Median :   -6.487               Median : 2.242e+05            
##  Mean   :   -9.871               Mean   :-2.067e+08            
##  3rd Qu.:    0.158               3rd Qu.: 2.936e+07            
##  Max.   : 5546.730               Max.   : 1.900e+12            
##  NA's   :1823                    NA's   :1823                  
##  cliente_edad_avg3 mactivos_margen_avg3 mpasivos_margen_avg3 cproductos_tend3 
##  Min.   : 18.00    Min.   :-102884.08   Min.   :-56483.0     Min.   :-3.0000  
##  1st Qu.: 36.67    1st Qu.:  -1131.50   1st Qu.:   199.8     1st Qu.: 0.0000  
##  Median : 44.67    Median :   -310.01   Median :   548.1     Median : 0.0000  
##  Mean   : 46.43    Mean   :   -366.22   Mean   :  1278.8     Mean   :-0.0097  
##  3rd Qu.: 55.00    3rd Qu.:      9.84   3rd Qu.:  1288.8     3rd Qu.: 0.0000  
##  Max.   :100.00    Max.   : 279794.53   Max.   :358669.1     Max.   : 4.0000  
##  NA's   :1823      NA's   :1823         NA's   :1823         NA's   :1823     
##  mcuenta_corriente_tend3 mcuenta_corriente_avg3 ccaja_ahorro_avg3
##  Min.   :-2636079        Min.   :-1292037       Min.   : 2.00    
##  1st Qu.:     -46        1st Qu.:    -669       1st Qu.: 2.00    
##  Median :       0        Median :       0       Median : 2.00    
##  Mean   :    -188        Mean   :    3590       Mean   : 2.13    
##  3rd Qu.:       0        3rd Qu.:       0       3rd Qu.: 2.00    
##  Max.   : 4026949        Max.   :10781671       Max.   :10.00    
##  NA's   :1823            NA's   :1823           NA's   :1823     
##  mcaja_ahorro_avg3  mtarjeta_visa_consumo_avg3 cpayroll_trx_avg3
##  Min.   :   -3547   Min.   :      0            Min.   : 0.0000  
##  1st Qu.:    6588   1st Qu.:   4580            1st Qu.: 0.0000  
##  Median :   22147   Median :  15693            Median : 1.0000  
##  Mean   :   70407   Mean   :  26252            Mean   : 0.8353  
##  3rd Qu.:   61935   3rd Qu.:  34174            3rd Qu.: 1.3333  
##  Max.   :19863719   Max.   :1559912            Max.   :40.0000  
##  NA's   :1823       NA's   :1823               NA's   :1823     
##     mes_avg3       clase_ternaria  
##  Min.   : 5.000           :     0  
##  1st Qu.: 9.000   BAJA+1  :   529  
##  Median : 9.000   BAJA+2  :   508  
##  Mean   : 9.006   CONTINUA:157379  
##  3rd Qu.: 9.000                    
##  Max.   :11.000                    
##  NA's   :1823